home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 March / Amiga-CD 1996 #3.iso / pd-software / mui_3.1 / developer / oberon / txt / muiwindow.mod < prev    next >
Text File  |  1996-01-19  |  4KB  |  107 lines
  1. MODULE MUIWindow;
  2.  
  3. (* $StackChk- $NilChk- $RangeChk- $CaseChk- $OvflChk- $ReturnChk- $ClearVars- *)
  4.  
  5. (* This module is generated by "GenMuiO" © 1995 by Albert Weinert *)
  6.  
  7. IMPORT
  8.   clf := Classface,
  9.   e := Exec,
  10.   m := Mui,
  11.   RootClass,
  12.   SuperClass := MUISemaphore,
  13.   I := Intuition;
  14.  
  15. CONST
  16.   name *= m.cWindow;
  17.  
  18. TYPE
  19.   Class     *= UNTRACED POINTER TO ClassDesc;
  20.   ClassDesc *= RECORD( SuperClass.ClassDesc ) END;
  21.  
  22. VAR
  23.   class * : I.IClassPtr;
  24.  
  25.    PROCEDURE ( VAR c : ClassDesc ) mGetMenuCheck*( VAR msg : m.pWindowGetMenuCheck ):e.APTR;
  26.      BEGIN
  27.        msg.msg.methodID := m.mWindowGetMenuCheck;
  28.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  29.      END mGetMenuCheck;
  30.  
  31.    PROCEDURE ( VAR c : ClassDesc ) mGetMenuState*( VAR msg : m.pWindowGetMenuState ):e.APTR;
  32.      BEGIN
  33.        msg.msg.methodID := m.mWindowGetMenuState;
  34.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  35.      END mGetMenuState;
  36.  
  37.    PROCEDURE ( VAR c : ClassDesc ) mScreenToBack*( VAR msg : m.pWindowScreenToBack ):e.APTR;
  38.      BEGIN
  39.        msg.msg.methodID := m.mWindowScreenToBack;
  40.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  41.      END mScreenToBack;
  42.  
  43.    PROCEDURE ( VAR c : ClassDesc ) mScreenToFront*( VAR msg : m.pWindowScreenToFront ):e.APTR;
  44.      BEGIN
  45.        msg.msg.methodID := m.mWindowScreenToFront;
  46.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  47.      END mScreenToFront;
  48.  
  49.    PROCEDURE ( VAR c : ClassDesc ) mSetCycleChain*( VAR msg : m.pWindowSetCycleChain ):e.APTR;
  50.      BEGIN
  51.        msg.msg.methodID := m.mWindowSetCycleChain;
  52.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  53.      END mSetCycleChain;
  54.  
  55.    PROCEDURE ( VAR c : ClassDesc ) mSetMenuCheck*( VAR msg : m.pWindowSetMenuCheck ):e.APTR;
  56.      BEGIN
  57.        msg.msg.methodID := m.mWindowSetMenuCheck;
  58.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  59.      END mSetMenuCheck;
  60.  
  61.    PROCEDURE ( VAR c : ClassDesc ) mSetMenuState*( VAR msg : m.pWindowSetMenuState ):e.APTR;
  62.      BEGIN
  63.        msg.msg.methodID := m.mWindowSetMenuState;
  64.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  65.      END mSetMenuState;
  66.  
  67.    PROCEDURE ( VAR c : ClassDesc ) mToBack*( VAR msg : m.pWindowToBack ):e.APTR;
  68.      BEGIN
  69.        msg.msg.methodID := m.mWindowToBack;
  70.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  71.      END mToBack;
  72.  
  73.    PROCEDURE ( VAR c : ClassDesc ) mToFront*( VAR msg : m.pWindowToFront ):e.APTR;
  74.      BEGIN
  75.        msg.msg.methodID := m.mWindowToFront;
  76.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  77.      END mToFront;
  78.  
  79.   PROCEDURE Dispatch * ( cl : I.IClassPtr; obj : I.ObjectPtr; msg : I.MsgPtr ):e.APTR;
  80.     VAR c : Class;
  81.     BEGIN
  82.       IF msg.methodID # I.new THEN
  83.         c := RootClass.BoopsiToObj( cl, obj )(Class);
  84.       END;
  85.  
  86.       CASE msg.methodID OF
  87.         | m.mWindowGetMenuCheck       : RETURN c.mGetMenuCheck( msg^(m.pWindowGetMenuCheck) );
  88.         | m.mWindowGetMenuState       : RETURN c.mGetMenuState( msg^(m.pWindowGetMenuState) );
  89.         | m.mWindowScreenToBack       : RETURN c.mScreenToBack( msg^(m.pWindowScreenToBack) );
  90.         | m.mWindowScreenToFront      : RETURN c.mScreenToFront( msg^(m.pWindowScreenToFront) );
  91.         | m.mWindowSetCycleChain      : RETURN c.mSetCycleChain( msg^(m.pWindowSetCycleChain) );
  92.         | m.mWindowSetMenuCheck       : RETURN c.mSetMenuCheck( msg^(m.pWindowSetMenuCheck) );
  93.         | m.mWindowSetMenuState       : RETURN c.mSetMenuState( msg^(m.pWindowSetMenuState) );
  94.         | m.mWindowToBack             : RETURN c.mToBack( msg^(m.pWindowToBack) );
  95.         | m.mWindowToFront            : RETURN c.mToFront( msg^(m.pWindowToFront) );
  96.       ELSE
  97.         RETURN SuperClass.Dispatch( cl, obj, msg );
  98.       END;
  99.     END Dispatch;
  100.  
  101. BEGIN
  102.   class := m.GetClass( name );
  103.   IF class = NIL THEN HALT( 205 ) END; (* Error : Object not Found *)
  104. CLOSE
  105.   IF class # NIL THEN m.FreeClass( class ) END;
  106. END MUIWindow.
  107.